IBM Personal Computer Assembler 
WD1002S-Wx2 Winchester Disk Controller BIOS (62-000042-012) 


BIH RWNHH 


100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 


= 0001 
0002 
0004 
0005 
0007 
0009 
000B 
0010 
0011 
= 0020 
0040 
0080 
0O0BB 
= OOFF 


= 0000 
= 0001 
0003 
0004 
0005 
0006 
0007 
0008 
000A 
000B 
o00c 
000D 
000E 
OOOF 
= 00EO 
00E3 
OOE4 
OOE5 
= 00E6 


= 0047 
= 004B 


0000 


= 0005 
0034 

0034 27727? 
0036 2??? 


= 0013 
004c 

004C 7??? 
O04E 7??? 


= 0019 
0064 

0064 27727? 
0066 772? 


= 001E 
0078 

0078 272? 
OO7TA 222? 


= 0040 
0100 

0100 2??? 
0102 7??? 


= 0041 
0104 

0104 2727? 
0106 7??? 


7c00 
7c00 
7DFE 
7DFE 


7DFE 


0000 


0042 

0042 ?? 
006c 

O06C 7??? 
0072 

0072 ?? 
0074 

0074 ?? 
0075 ?? 


0076 
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PAGE 118,121 
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TITLE WD1002S-Wx2 Winchester Disk Controller BIOS (62-000042-012) 


INT_13H_ERR_INVALID_COMMAND 


INT_13H_ERR_CANNOT_FIND_ADDR_MARK 


INT_13H_ERR_SECTOR_NOT_FOUND 
INT_13H_ERR_RESET_FAILED 


INT_13H_ERR_DRV_PARM_ACTIVITY_FAILED 


INT_13H_ERR_ATTEMPT_DMA_OVER_64K 


INT_13H_ERR_BAD_CYLINDER_OR_TRACK 


INT_13H_ERR_CRC_ECC_DATA 
INT_13H_ERR_ECC_CORRECTED_DATA 
INT_13H_ERR_CONTROLLER_FAILURE 
INT_13H_ERR_SEEK_FAILURE 
INT_13H_ERR_DRIVE_TIMED_OUT 
INT_13H_ERR_UNDEFINED 
INT_13H_ERR_SENSE_FAILED 


OP_TEST_DRIVE_READY 
OP_RECALIBRATE 
OP_READ_SENSE 
OP_FORMAT_DRIVE 
OP_VERIFY_SECTORS 
OP_FORMAT_TRACK 
OP_FORMAT_BAD_TRACK 
OP_READ_SECTORS 
OP_WRITE_SECTORS 

OP_SEEK 

OP_INIT_DRV_PARM 
OP_READ_ECC_BURST_ERROR_LEN 
OP_READ_SECTOR_BUFFER 
OP_WRITE_SECTOR_BUFFER 
OP_SECTOR_BUFFER_DIAG 
OP_DRIVE_DIAG 

OP_CTRL_DIAG 

OP_READ_LONG 

OP_WRITE_LONG 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


001h 
002h 
004h 
005h 
007h 
009h 
0OBh 
010h 
011h 
020h 
040h 
080h 
OBBh 
OFFh 


000h 
001h 
003h 
004h 
005h 
006h 
007h 
008h 
OOAh 
0OBh 
00Ch 
00Dh 
O0O0Eh 
O0OFh 
OEOh 
OE3h 
OE4h 
OESh 
OE6h 


ir DMA mode register 
DRQ3_READ EQU 47H ; channel=3 address increment 
DRQ3_WRITE EQU 4BH . | demand mode read/write 
] Interrupt vector table (at 0000:0000) 
ZERO SEGMENT AT 0H 
IRQS EQU 5 

ORG (8+IRQ5) *4 
INT_IRQ5_OFF DW ? 
INT_IRQ5_SEG DW ? 
INT_13H EQU 013H 

ORG INT_13H*4 
INT_13H_OFF DW ? 
INT_13H_SEG DW ? 
INT_19H EQU 019H 

ORG INT_19H*4 
INT_19H_OFF DW ? 
INT_19H_SEG DW ? 
INT_1EH EQU 01EH 

ORG INT_1EH*4 
INT_1EH_OFF DW ? 
INT_1EH_SEG DW ? 
INT_40H EQU 040H 

ORG INT_40H*4 
INT_40H_OFF DW ? 
INT_40H_SEG DW ? 
INT_41H EQU 041H 

ORG INT_41H*4 
INT_41H_OFF DW ? 
INT_41H_SEG DW ? 

ORG 7CO0H 
BOOT_SEC LABEL FAR 

ORG 7DFEh 
BOOT_SIG LABEL FAR 
ZERO ends 


BIOS Data Area (at 0040 


BDA SEGMENT AT 40H 

ORG 0042H 
SCRATCH DB 2 

ORG 006CH 
TIMER_COUNTER DW 2. 

ORG 0072H 
SOFT_RESET_FLAG DB ie 

ORG 0074H 
LAST_OP_STATUS DB 2 
NUM_OF_DRIVES DB ? 
BDA ends 






; Buffer that holds Command Block 





ey 


and error sense 
imer bumps this 18.2 times a 
second or so 
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115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 


0000 


0000 
0002 
0003 
0005 


0008 


0036 
0036 


0037 


0038 
0039 
003A 
003B 
003c 
003D 
003E 
003F 
0040 


0041 


0041 
0043 
0044 
0046 
0048 
0049 
004A 


0051 
0053 
0054 
0056 
0058 
0059 
OO5A 


0061 
0063 
0064 
0066 
0068 
0069 
OO6A 


0071 
0073 
0074 
0076 
0078 
0079 
OO7A 


AASS 


10 
EB 
EQ 


28 
70 
74 
20 
72 
69 
6F 
74 


CF 


02 


25 
02 
08 
2A 
FE 
50 
F6 
19 
04 


7c 


0530 R 


43 
79 
20 
57 
6E 
74 
72 
69 


0264 


04 


0265 
0265 


OB 
05 


07 


0264 


02 


0080 
0080 


OB 
05 


07 


0264 


04 


0265 
0080 


OB 
05 


07 


0132 


04 


0132 
0000 


OB 
05 


07 


29 
72 
31 
65 
20 
61 
70 
6F 


20 
69 
39 
73 
44 
6c 
6F 
6E 


00 


00 


00 


00 


43 
67 
38 
74 
69 
20 
72 


6F 
68 
34 
65 
67 
43 
61 


PAGE 

Main ROM image 

ROM segment byte public ’CODE’ 
assume cs:ROM 
assume es:ZERO, ss:ZERO, ds: ZERO 
dw OAA55h 7 Magic 
db 16 ; Length in 256-byte chunks 
jmp short near ptr ROM_ENTRY ; Main option ROM entry point 
jmp DO_FORMAT ; Entry point to formatter 
db "(C) Copyright 1984 Western Digital Corporation" 


INT_1EH_TABLE: 


; Yeah, do not disassemble or anything. 
; You’1l be shot in your face if you do. 





DB OCFh Bits 0-3: SRT step rate time 
Bits 4-7: Head unload time 
DB 2 7; Bit 0: 1l=use DMA 
; Bits 2-7: Head load time 
DB at ; 55-ms increments before turning disk motor off 
DB 2 ; Sector size (0=128, 1=256, 2=512, 3=1024) 
DB 8 ; EOT (last sector on a track) 
DB 42 ; Gap length for read/write operations 
DB 255 ; Data Transfer Length 
DB 80 ; Gap length for format operation 
DB OF6h ; Fill character for format 
DB 25 ; Head-settle time (in ms) 
DB 4 ; Motor-startup time (in 1/8th-second intervals) 
INT_41H_TABLE: 
; Microscience HH725 
DW 612 ; Cylinders 
DB 4 ; Heads 
DW 613 ; RWC 
DW 613 ; WeC 
DB OBh ; ECC Burst Length 
DB 5 ; Control Byte 
DB 7 DUP (0) 
; Miniscribe 3012 
DW 612 ; Cylinders 
DB = ; Heads 
DW 128 ; RWC 
DW 128 ; WeC 
DB OBh ; ECC Burst Length 
DB 5 ; Control Byte 
DB 7 DUP (0) 
; Seagate ST225 
DW 612 ; Cylinders 
DB 4 ; Heads 
DW 613 ; RWC 
DW 128 ; WeC 
DB OBh ; ECC Burst Length 
DB 5 ; Control Byte 
DB 7 DUP (0) 
; Seagate ST412 
DW 306 ; Cylinders 
DB 4 ; Heads 
DW 306 ; RWC 
DW to) ; WeC 
DB OBh ; ECC Burst Length 
DB . ; Control Byte 
DB 7 DUP (0) 
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204 PAGE 

205 poocco---------------------------------------------------- 

206 Option ROM initialization 

207 Pepe a a pe a TE POT OO ae a ee 

208 

209 0081 ROM_ENTRY PROC FAR 

210 0081 33 CO xor ax, ax 

211 0083 8E D8 mov ds, ax 

212 

213 0085 FA cli 

214 0086 C4 06 004C R les ax, dword ptr INT_13H_OFF 

215 OO8A A3 0100 R mov INT_40H_OFF, ax 7; Saved floppy handler 
216 OO8D 8C 06 0102 R mov INT_40H_SEG, es 

217 +0091 C7 06 004C R O1CF R mov INT_13H_OFF, offset INT_13H_HANDLER ; Install disk handler 
218 0097 8C OE 004E R mov INT_13H_SEG, cs 

219 009B C7 06 0064 R O014E R mov INT_19H_OFF, offset INT_19H_HANDLER ; Install boot handler 
220 OOA1 8C OE 0066 R mov INT_19H_SEG, cs 

221 OOAS5 C7 06 0034 R O1BE R mov INT_IRQ5_OFF, offset IRQ_5_HANDLER ; Install disk IRQ handler 
222 OOAB 8C OF 0036 R mov INT_IRQ5_SEG, cs 

223 OOAF C7 06 0104 R 0041 R mov INT_41H_OFF, offset INT_41H_TABLE ; Geometry table 
224 OOBS 8C OE 0106 R mov INT_41H_SEG, cs 

225 O0OB9 FB sti 

226 

227 OOBA B8 ---- R mov ax, BDA BIOS data area segment 
228 OOBD 8E D8 mov ds, ax 

229 assume ds:BDA 

230 

231 OOBF C6 06 0075 R 00 mov NUM_OF_DRIVES, 0 

232 00C4 B8 019A mov ax, 410 Pre-initialize counter 
233 OOC7 81 3E 0072 R 1234 cmp word ptr SOFT_RESET_FLAG, 1234h to 22s for shorter (3s) 
234 OOCD 74 02 je short RESETTING wait when resetting 
235 OO0cF 33 CO xor ax, ax Start from zero otherwise 
236 OOD1 RESETTING: with plenty of time (25s) 
237 OOD1 A3 006C R mov TIMER_COUNTER, ax for disk to spin up 
238 

239 OOD4 FA cli 

240 OOD5 E4 21 in al, 21h 

241 OOD7 24 FE and al, OFEh Unmask IRQO (Timer) 
242 OOD9 E6 21 out 21h, al 

243 OODB FB sti 

244 

245 OODC B2 80 mov dl, 80h First hard drive 

246 OODE DO_RESET: 

247 OODE B9 0001 mov ety td. 

248 OOE1 8A F5 mov dh, ch 

249 OOE3 8A Cl mov aL; Si 

250 OOES5 B4 00 mov ah, 0 Reset disk system 

251 OOE7 CD 13 int INT_13H 

252 OOE9 72 16 je short ERROR_HAPPENED 

253 

254 OOEB B4 14 mov ah, 14h Controller diagnostics 
255 OOED CD 13 int INT_13H 

256 OOEF 72 10 je short ERROR_HAPPENED 

257 

258 OOF1 WAIT_FOR_DRIVE_READY: 

259 OOF1 B4 10 mov ah, 10h Test drive ready 

260 OOF3 CD 13 int INT_13H 

261 OOFS 73 14 jne short DRIVE_IS_READY 

262 

263 OOF7 81 3E O06C R O1BE cmp TIMER_COUNTER, 446 Count up to 25 Seconds 
264 OOFD 72 F2 jb short WAIT_FOR_DRIVE_READY 

265 OOFF EB 27 jmp short TRY_AGAIN 

266 

267 0101 ERROR_HAPPENED : 

268 0101 FE C2 inc dl 

269 0103 EB 23 jmp short TRY_AGAIN 

270 

271 0105 STR_1701: 

272 0105 31 37 30 31 OA OD db "1701", OAh, ODh 

273 

274 010B DRIVE_IS_READY: 

275 010B B4 11 mov ah, 11h Recalibrate drive 

276 010D CD 13 int INT_13H 

277 + O10F 72 17 je short TRY_AGAIN 

278 

279 0111 FE 06 0075 R inc NUM_OF_DRIVES 

280 0115 80 FA 80 cmp dl, 80h First hard drive? 

281 0118 75 OE jne short TRY_AGAIN 

282 

283 O11A 81 3E 0072 R 1234 cmp word ptr SOFT_RESET_FLAG, 1234h 

284 0120 74 06 je short TRY_AGAIN 

285 0122 C7 06 O06C R 0165 mov TIMER_COUNTER, 357 20 seconds 

286 

287 0128 TRY_AGAIN: 

288 0128 FE C2 inc dl Next hard drive 

289 012A F6 C2 01 test dl, 1 

290 012D 75 c2 jnz short WAIT_FOR_DRIVE_READY 

291 012F 80 FA 88 cmp dl, 88h Last hard drive? 

292 0132 72 AA jb short DO_RESET Not yet, reset another one 
293 0134 80 3E 0075 R 00 cmp NUM_OF_DRIVES, 0 

294 0139 75 12 jne short RESET_SUCCESSFUL At least one drive 

295 initialized successfully 
296 013B BE 0105 R mov si, offset STR_1701 Otherwise proceed priniting 
297 013E FC cld the 1701 error 

298 013F B9 0006 mov cx, 6 

299 0142 PRINT_STRING: 

300 0142 2E: AC lods byte ptr cs: [si] 

301 0144 B4 OE mov ah, OEh TTY output 

302 0146 CD 10 int 10h 

303 0148 E2 F8 loop PRINT_STRING 

304 014A BD OOOF mov bp, OFh 

305 

306 014D RESET_SUCCESSFUL: 

307 014D CB ret 

308 0O14E ROM_ENTRY ENDP 


309 
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310 

311 

312 

313 

314 

315 0145 

316 014E 33 CO 
317 0150 8E D8 
318 

319 0152 8E CO 
320 

321 0154 FA 

322 0155 C7 06 0078 R 0036 R 
323 015B 8C OE OO7A R 
324 015F C7 06 0104 R 0041 R 
325 0165 8C OE 0106 R 
326 0169 FB 

327 

328 016A B9 0003 
329 016D 33 D2 
330 016F 

331 016F B8 0000 
332 0172 CD 40 
333 0174 72 OF 
334 

335 0176 BB 7C0OO R 
336 0179 B8 0201 
337 

338 017C 51 

339 017D B9 0001 
340 0180 CD 40 
341 0182 59 

342 0183 73 34 
343 

344 0185 

345 0185 80 FC 80 
346 0188 74 02 
347 018A E2 E3 
348 

349 018C 

350 018C B8 0000 
351 018F CD 40 
352 

353 0191 B2 80 
354 0193 B9 0008 
355 0196 

356 0196 B4 00 
357 0198 CD 13 
358 019A 72 17 
359 

360 019C BB 7C00 R 
361 019F B8 0201 
362 

363 0O1A2 51 

364 01A3 B9 0001 
365 01A6 CD 13 
366 0O1A8 59 

367 O1A9 72 08 
368 

369 O1AB 81 3E 7DFE R AAS5 
370 01B1 74 06 
371 

372 01B3 

373 01B3 FE C2 
374 01B5 E2 DF 
375 01B7 CD 18 
376 

377 01B9 

378 01B9 EA 7C00 ---- R 
379 0O1BE 

380 

381 

382 

383 

384 

385 01BE 

386 01BE 50 

387 

388 0O1BF BO 20 
389 01C1 E6 20 
390 

391 01C3 BO 07 
392 01C5 E6 OA 
393 

394 01C7 E4 21 
395 01C9 OC 20 
396 01CB E6 21 
397 

398 01CD 58 

399 0O1CE CF 

400 O1cF 


401 


Version 2.00 


INT_19H_HANDLER 
xor 
mov 
assume 
mov 


cli 
mov 
mov 
mov 
mov 
sti 


mov 
xor 


1-4 
01-29-85 


Page 


PROC 

ax, ax 
ds, ax 
ds : ZERO 


es, ax 


INT_1EH_OFF, 
INT_1EH_SEG, 
INT_41H_OFF, 
INT_41H_SEG, 


offset INT_1EH_TABLE 
cs 
offset 
cs 


INT_41H_TABLE 


cx, 3 ; 
dx, dx ; 


READ_FLOPPY_BOOT_SEC: 


mov 
int 
je 


mov 
mov 


push 
mov 
int 
pop 
jne 


ax, 0 ; 
INT_40H 
short FLOPPY_RESET_FAILED 


bx, OFFSET BOOT_SEC 

ax, 201h Fj 
cx 

gm, °4, 

INT_40H 7 
cx 

short RUN_BOOT_SECTOR ; 


FLOPPY_RESET_FAILED: 


cmp 
je 
loop 


ah, INT_13H_ERR_DRIVE_TIMED_OUT 
short FLOPPY_BOOT_FAILED 
READ_FLOPPY_BOOT_SEC 


FLOPPY_BOOT_FAILED: 


mov 
int 


mov 
mov 


TRY_BOOT_NEXT_HD: 


mov 
int 
je 


mov 
mov 


push 
mov 
int 
pop 
je 


cmp 
je 


BOOT_FAILED: 


ax, 0 ; 
INT_40H 
dl, 80h 7 
cx, 8 ; 
ah, 0 ; 
INT_13H 


short BOOT_FAILED 


bx, OFFSET BOOT_SEC 

ax, 201h 3 
cx 

ex, 1 

INT_13H 


cx 
short BOOT_FAILED 


word ptr ds:BOOT_SIG, OAA55h ¥ 
short RUN_BOOT_SECTOR 


Three attempts at floppy read 
Drive 0, head 0 


Reset Floppy disk system 


AH=02H Read Sectors 


AL=01H One sector 


Read from floppy 


Read successful! 


Reset Floppy disk system 


with first HDD 
eight hard disks 


Start 
Up to 


Reset hard disk 


AH=02H Read Sectors 
AL=01H One sector 


See if magic matches 


Try next disk 


ROM Basic, the epitome 


of failure 


ACK Interrupt 


Mask DMA3 


Mask IRQS 


inc dl : 
loop TRY_BOOT_NEXT_HD 
aint 18h F 
RUN_BOOT_SECTOR: 
jmp BOOT_SEC 
INT_19H_HANDLER ENDP 
¥ Physical disk interrupt (IRQ 5) 
IRQ_5_ HANDLER PROC FAR 
push ax 
mov al, 20h ; 
out 20h, al 
mov al, 7 : 
out OAh, al 
in el, 21h 
or al, 20h Fs 
out 21h, al 
pop ax 
iret 
IRQ_5_ HANDLER ENDP 
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402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 


01CF 
01CF 
01D0 
01D3 
01D5 
01D7 


O1DA 
01DA 
01DD 
O1DF 


O1E1 


01E3 
01E3 
01E4 
01E5 
O1E6 
O1E7 
01E8 
0159 
O1EA 
01EB 


O1ED 
O1EE 
01F1 


01F3 


01F4 
O1F7 


O1F9 
01FC 


01FE 
O1FE 
0200 


0202 
0202 


0205 
0205 
0206 


020A 
020D 
020F 


0210 
0212 


0214 
0215 
0217 
0219 
021B 


o21c 
021F 
0220 
0221 


0222 
0223 
0224 
0225 
0226 
0227 
0228 
022B 


FB 
80 
73 
cD 
CA 


80 
75 
cD 


B4 


53 
51 
52 
55 
57 
56 
1E 
06 
8B 


50 
B8& 
8E 


58 


80 
77 


80 
72 


B4 
EB 


E8& 


50 
88 


E8& 
BO 
EE 


BO 
E6 


FA 
E4 
oc 
E6 
FB 


80 
58 
07 
1F 


5E 
5F 
5D 
5A 
59 
5B 
CA 


INT_13H_HANDLER PROC FAR 


sti 
FA 80 cmp dl, 80h 
05 jnb short DO_HARD_DISK_INT 
40 int INT_40H 
0002 ret 2 
DO_HARD_DISK_INT: 
Fc 00 cmp ah, 0 
04 jnz short NOT_A_DISK_SUBSYS_RESET 
40 int INT_40H 
00 mov ah, 0 
NOT_A_DISK_SUBSYS_RESET: 
push bx 
push cx 
push dx 
push bp 
push di 
push si 
push ds 
push es 
EC mov bp, sp 
push ax 
mar Re mov ax, BDA 
Ds mov ds, ax 
assume ds:BDA 
pop ax 
Fc 14 cmp ah, offset INT_13H_NUM_OPS 
05 ja short BAD_ARGUMENTS 
FA 88 cmp dl, 88h 
04 jb short GOOD_ARGUMENTS 
BAD_ARGUMENTS : 
o1 mov ah, INT_13H_ERR_INVALID_COMMAND 
03 jmp short INT_13H_CLEANUP 
GOOD_ARGUMENTS : 
022B R call INT_13H_DISPATCH_FUNCTION 
INT_13H_CLEANUP: 
push ax 
26 0074 R mov LAST_OP_STATUS, ah 
0505 R call PORT_323_TO_DxX 
re mov al, 11111100b 
out dx, al 
07 mov ef 
OA out OAh, al 
cli 
21 in al, 21h 
20 or al, 20h 
21 out 21h, al 
sti 
C4 FF add ah, OFFh 
pop ax 
pop es 
pop ds 
assume ds:ZERO 
pop si 
pop di 
pop bp 
pop dx 
pop cx 
pop bx 
0002 ret 2 


INT_13H_HANDLER ENDP 


Is this a hard disk? 
Yes it is. 
Call original floppy handler, 
if not. 
Is this a subsystem reset? 
Also reset floppies if it is 
a disk subsystem reset. 
Replace the return value 


from floppy reset with 
AH=0H reset. 


From here on, BP points 
to the saved registers. 


We only understand 20 commands 


We only support 8 hard disks 


Write DMA/IRQ mask 
Disable IRQ and DMA 


Mask DRQ3 


Mask IRQS 


Why? Set overflow flag? 
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485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 


022B 


022B 


022E 
0230 


0234 
0236 
0239 
023B 
023D 
0240 
0242 


0246 
0249 
024D 
024F 
0251 
0252 
0253 
0256 
025A 
025D 
025E 


O25F 
0261 
0264 
0266 


0269 
026B 
026D 
026F 
0274 


0274 
0276 
0278 
O27A 
027C 
027E 
0280 
0282 
0284 
0286 
0288 
028A 
028c 
028E 
0290 
0292 
0294 
0296 
0298 
029A 
029c 


029E 
029F 
02A0 
O2A1 
02A2 
02A3 
02A4 
02A5 
O2A6 
O2A7 
02A8 
02A9 
O2AA 
02AB 
o2aAc 
O2AD 
O2AE 
O2AF 
02B0 
02B1 


FE 
89 


8A 
80 
Bl 
D2 
80 
oA 
88 


80 
81 
DO 
8B 
50 
06 
E8& 


26: 


A2 
07 
58 


8A 
BB 


2E: 


8A 
32 
DO 


2E: 


02B3 
035c 
037E 
0361 
03D5 
03D5 
03D5 
03D5 
0335 
02D5 
0365 
0370 
03D5 
02B3 
0374 
037A 
03D5 
03D5 
03D5 
03D5 
03D5 


oc 
00 
08 
OA 
05 
06 
07 
04 
00 
oc 
E5 
E6 
OB 
oc 
OE 
OF 
00 
o1 
EO 
E3 


= 0014 


02B2 


E4 


0046 R 


cg 
OE 0044 R 


E5 01 

05 

E5 

E6 OF 

EE 

2E 0043 R 


E2 OOFE 
E2 
F2 


04D9 R 
8A 47 08 
0047 R 


c4 
029E R 
D7 
0042 R 


Dc 
FF 
E3 
FF A7 0274 R 


DAD DDDDDDDDDADDDDDDDWD 


; Handle hard disk services 


; Fill in the Command Control Block and call the 
; appropriate handler for the function code. 


; Arguments: 


r AL = Head number? 


; DL = Drive 
; CX = 22? 
; BP 





Pointer to saved registers 


INT_13H_DISPATCH_FUNCTION PROC NEAR 


assume ds:BDA 

mov SCRATCH+4, al : 

dec cl 

mov word ptr SCRATCH+2, cx ¥ 

mov ch, dl 

and Gh;-:2 

mov gl,. & 

shl ch, cl 

and dh, OFh 

or ch, dh 

mov SCRATCH+1, ch ¥ 

sub dl, 80h 

and dx, OFEh 

shl dl, 1 

mov si, dx 

push ax 

push es 

call GET_DRIVE_PARMS 

mov al, es: [bx+8] : 

mov SCRATCH+5, al Fe 

pop es 

pop ax 

mov al, ah 

mov bx, offset INT_13H_OPS 

xlat byte ptr cs: [bx] 

mov SCRATCH+0, al ¥ 

mov bl, ah F 

xor bh, bh Fr 

shl bl, 1 3 

jmp cs: INT_13H_DISP [bx] 
INT_13H_DISPATCH_FUNCTION ENDP 


INT_13H_DISP 


INT_13H_OPS 


dw offset HANDLE_DISK_RESET 3 
dw offset HANDLE_GET_LAST_STAT ; 
dw offset HANDLE_READ_SECTORS ; 
dw offset HANDLE_WRITE_SECTORS ; 


dw offset HANDLE_NO_DMA F 
dw offset HANDLE_NO_DMA g 
dw offset HANDLE_NO_DMA : 
dw offset HANDLE_NO_DMA F 


dw offset HANDLE_GET_DRV_PARM ; 
dw offset HANDLE_INIT_DRV_PARM ; 
dw offset HANDLE_READ_LONG : 
dw offset HANDLE_WRITE_LONG : 
dw offset HANDLE_NO_DMA f 
dw offset HANDLE_DISK_RESET Fj 
dw offset HANDLE_READ_RAM 1 
dw offset HANDLE_WRITE_RAM + 
dw offset HANDLE_NO_DMA 3 
lw offset HANDLE_NO_DMA F 
lw offset HANDLE_NO_DMA 3 
lw offset HANDLE_NO_DMA : 
lw offset HANDLE_NO_DMA ; 


OP_INIT_DRV_PARM 
OP_TEST_DRIVE_READY 
OP_READ_SECTORS 
OP_WRITE_SECTORS 
OP_VERIFY_SECTORS 
OP_FORMAT_TRACK 
OP_FORMAT_BAD_TRACK 
OP_FORMAT_DRIVE 
OP_TEST_DRIVE_READY 
OP_INIT_DRV_PARM 
OP_READ_LONG 
OP_WRITE_LONG 

OP_SEEK 
OP_INIT_DRV_PARM 
OP_READ_SECTOR_BUFFER 
OP_WRITE_SECTOR_BUFFER 
OP_TEST_DRIVE_READY 
OP_RECALIBRATE 
OP_SECTOR_BUFFER_DIAG 
OP_DRIVE_DIAG 


GEGCECECEEGCEGCEGEEE EEE 


INT_13H_NUM_OPS EQU $-INT_13H_OPS 


db OP_CTRL_DIAG 


Sector Count 


Cylinder Sector 


Drive Head 


Copy command byte from drive params 
R1 R2 0 0 O SP SP SP (Command block) 


Command block: OP CODE 


Now that the Command Block is 
constructed, pick a function 
to submit the command 


OOH Reset disk system 

01H Get status of last operation 
02H Read sectors 

03H Write sectors 

04H Verify sectors 

O5H Format track 

O6H Format bad track 

O7H Format drive from given track 
08H Read disk parameters 

O9H Initialize disk controller 
OAH Read long sectors 

OBH Write long sectors 

OCH Seek 

ODH Reset disk drives 

OEH Read sector buffer 

OFH Write sector buffer 

10H Test whether drive is ready 
11H Recalibrate 

12H Sector buffer diagnostics 
12H Drive diagnostics 

13H Controller diagnostics 
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583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 


02B3 
02B3 
02B6 


02B7 
02BA 


02BC 
02BE 
02BE 
O2BF 


02c0 
02c1 


02c2 
02c4 


02c6 
02c8 
O2CA 


02cc 


02CE 
02D0 


02D2 


02D2 
02D2 
02D4 
02D4 


02D5 
02D5 
02DA 
02DD 
02DF 
02E4 
02E4 
02E6 
02E9 
02EB 


02EE 
02F1 
02F4 
O2F7 
02FA 
02FD 
0300 
0303 
0306 
0309 
030c 
030F 
0312 
0315 
0318 
031B 


031E 
0321 
0323 


0325 
0325 
0327 
0327 


0328 
0328 
032B 


032D 
0330 
0331 


0332 
0332 


0333 
0335 


E8& 
EE 


BO 
E2 


B4 


42 
EE 


4a 
EC 


A8 
75 


24 
34 
74 


E2 


FE 
75 


B4 


c3 


cé 
E8& 
72 
cé 


BO 
E8& 
72 
E8& 


BE 
E8& 
BE 
E8& 
BE 
E8& 
BF 
E8& 
BF 
E8& 
BF 
E8& 
BE 
E8& 
BF 
E8& 


E8& 


72 


74 


B4 


c3 


E8& 
72 


26: 


EE 
c3 


58 


EB 


0500 R 


0584 
FE 


OA 


30 
oc 


oD 
oD 
09 


FO 


cc 
EC 


05 


06 0043 R 00 
02E4 R 

F5 

06 0043 R 20 


FC 
0479 R 
EQ 
04D9 R 


0001 
0328 R 
0000 
0328 R 
0002 
0328 R 
0004 
0328 R 
0003 
0328 R 
0006 
0328 R 
0005 
0328 R 
0007 
0328 R 


O4AB R 


02 
02 


07 


04c8 R 
05 


8A 01 


FO 


HANDLE_DISK_RESET PROC NEAR 
call PORT_321_TO_Dx 


out dx, al 

mov cx, 1412 
WAIT_A_BIT: loop WAIT_A_BIT 

mov ah, 10 
WAIT_BUSY: 

inc dx 

out dx, al 

dec dx 

in al, dx 

test al, 110000b 

jne short BAD_STATUS 

and al, 1101b 

xor al, 1101b 

je short HANDLE_INIT_DRV_PARM 


loop WAIT_BUSY 


dec ah 


jnz short WAIT_BUSY 


; FALL THROUGH TO BAD_STATUS 





Assert RESET 


Wait while, hopefully RESET 
will get asserted 


Ten attempts 


Port 0x322 now 
Assert BUSY 


Back to port 0x321 
Read STATUS 


IRQ | DRO 


Busy | C/D | REQ 


Reset succeeded. Proceed 
configuring the drives. 
What? Isn’t Cx=0 now? 


More attempts? 
Yes. Wait some more. 


HANDLE_DISK_RESET ENDP 
BAD_STATUS: 
mov ah, INT_13H_ERR_RESET_FAILED 
JUST_RETURN_O: 
ret 
: Initialize disk parameters (AH=09H) 


; Also called upon successful disk reset (AH=00H) 


HANDLE_INIT_DRV_PARM PROC 


mov SCRATCH+1, 0 

call INIT_DRV_PARM 

je short JUST_RETURN_O 

mov SCRATCH+1, 20h 
INIT_DRV_PARM: 

mov al, 11111100b 

call WRITE_COMMAND_BLOCK 

je short JUST_RETURN_O 

call GET_DRIVE_PARMS 

mov @i,.- i 

call WRITE_DATA 

mov di, 0 

call WRITE_DATA 

mov di, 2 

call WRITE_DATA 

mov di, 4 

call WRITE_DATA 

mov OL > <a 

call WRITE_DATA 

mov di, 6 

call WRITE_DATA 

mov a3,-5 

call WRITE_DATA 

mov a,-7 


call WRITE_DATA 


Select first drive 
Initialize first drive 


Select second drive 


Disable IRQ, DRQ 


ES:BX now points to params table 


Write the seven bytes 
of drive paramerets 
from ES: [BX+DI] 


call CHECK_STATUS 
je short RETURN_ERR_7 
jz short JUST_RETURN_3 7; Success! 
RETURN_ERR_7: 
mov ah, INT_13H_ERR_DRV_PARM_ACTIVITY_FAILED 
JUST_RETURN_3: 
ret ; Returns into this procedure 
FH (above) on first drive, 
F returns from procedure 
4 on second drive. 
WRITE_DATA: 
call WAIT_FOR_REQ 
je short RETURN_FROM_CALLER 
mov al, es: [bx+di] 
out dx, al 
ret 


RETURN_FROM_CALLER: 
pop ax 


jmp short RETURN_ERR_7 


HANDLE_INIT_DRV_PARM ENDP 


Throw away the intra-procedure 


return value, returning directly 


to this procedure’s caller. 
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683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 


0335 
0335 


0338 
033B 
033E 
0340 
0342 
0344 
0346 
0348 
034A 


034D 
0351 
0353 
0356 


0359 


0359 
0359 
035B 


035c 
035Cc 
035F 
0361 


0361 
0361 
0363 
0365 


0365 
0365 


0367 


0367 
0367 
036B 
036E 
0370 


0370 
0370 
0372 
0374 


0374 
0374 


0376 
0376 
0376 


0378 
037A 


O37A 
O37A 
037C 
037E 


037E 
037E 


0380 


0380 
0380 


0384 


0384 
0384 


0387 


E8& 


26: 


2D 
8A 
D1 
D1 
24 
oc 
8A 
89 


26: 


FE 
AO 
89 


B4 
c3 


AO 
EB 


BO 
EB 


BO 


8A 
BE 
EB 


BO 
EB 


BO 


B2 
EB 


BO 
EB 


BO 


8A 


BE 


04D9 R 


8B 07 
0002 
E8& 

E8& 
E8& 
co 
11 
E5 
46 0c 


8A 67 02 
cc 

0075 R 
46 OA 


00 


0074 R 
F8 


4B 
1B 


47 


16 0046 R 
0204 
17 


4B 
F3 


47 


o1 
OA 


4B 
Fs 


47 


16 0046 R 


0200 





PAGE 
: Get disk parameters (AH: 
HANDLE_GET_DRV_PARM PROC NEAR 
call GET_DRIVE_PARMS 
mov ax, es: [bx] 
sub ex; 2 
mov ch, al 
shr ax, 1 
shr fi ae 9 
and al, OCOh 
or al, 11h 
mov ah, ch ; Cylinders & tracks to 
mov [bp+0Ch], ax ; saved CX 
mov ah, es: [bx+2] 
dec ah 
mov al, NUM_OF_DRIVES ; Heads & drives to 
mov [bp+0Ah], ax ; saved DX 


; FALL THROUGH TO RETURN_ZERO 
HANDLE_GET_DRV_PARM ENDP 


RETURN_ZERO: 


mov ah, 0 

ret 
; Get status of last operation (AH=01H) 
HANDLE_GET_LAST_STAT PROC NEAR 

mov al, LAST_OP_STATUS 

jmp short RETURN_ZERO 


HANDLE_GET_LAST_STAT ENDP 


; Write sectors (AH=03H) 
HANDLE_WRITE_SECTORS PROC NEAR 

mov al, DRQ3_WRITE 

jmp short COMMON_DMA_SECTORS_512 


HANDLE_WRITE_SECTORS ENDP 


HANDLE_READ_LONG PROC NEAR 


mov al, DRQ3_READ 
; FALL THROUGH TO COMMON_DMA_SECTORS_516 
HANDLE_READ_LONG ENDP 
COMMON_DMA_SECTORS_516 PROC NEAR 
mov dl, SCRATCH+4 
mov di, 516 ; 516 bytes = 512 bytes + 4 ECC 
jmp short COMMON_DMA 


COMMON_DMA_SECTORS_516 ENDP 





HANDLE_WRITE_LONG PROC NEAR 


mov al, DRQ3_WRITE 

jmp short COMMON_DMA_SECTORS_516 
HANDLE_WRITE_LONG ENDP 
r Read sector buffer (AH=0EH) 


HANDLE_READ_RAM PROC NEAR 

mov al, DRQ3_READ 

; FALL THROUGH TO COMMON_READ_WRITE_RAM 
HANDLE_READ_RAM ENDP 


COMMON_READ_WRITE_RAM PROC NEAR 
mov pb eee 
jmp short COMMON_DMA_512 


COMMON_READ_WRITE_RAM ENDP 






Write sector buffer (AH=O0FH) 


HANDLE_WRITE_RAM PROC NEAR 


mov al, DRQ3_WRITE 

jmp short COMMON_READ_WRITE_RAM 
HANDLE_WRITE_RAM ENDP 
Fi Read sectors (AH=02H) 
HANDLE_READ_SECTORS PROC NEAR 

mov al, DRQ3_READ 

; FALL THROUGH TO COMMON_DMA_SECTORS_512 
HANDLE_READ_SECTORS ENDP 
COMMON_DMA_SECTORS_512 PROC NEAR 

mov dl, SCRATCH+4 


; FALL THROUGH TO COMMON_DMA_512 
COMMON_DMA_SECTORS_512 ENDP 


COMMON_DMA_512 PROC NEAR 
mov di, 512 
; FALL THROUGH TO COMMON_DMA 
COMMON_DMA_512 ENDP 
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797 

798 ee a a a 

799 : 

800 = DMA mode register (DRQ3_WRITE/DRQ3_READ) 

801 Buffer 

802 Saved regs 

803 = Block Count (on other entry point) 

804 512/516 (transfer length) a 

805 Pe Se Pe RE eT ee eS ee 

806 

807 0387 COMMON_DMA PROC NEAR 

808 0387 FA eli 

809 0388 E6 OB out OBh, al ; Set DMA mode register 
810 038A E6 OC out O0Ch, al ; Clear DMA byte pointer 
811 

812 038C 8c CO mov ax, es 

813 038E Bl 04 mov el, 4 

814 0390 D3 co rol ax, cl 

815 0392 8A E8 mov ch, al 

816 0394 24 FO and al, OFOh 

817 0396 03 46 OE add ax, [bp+0Eh] 7 Saved AX??? 

818 0399 80 D5 00 adc ch, 0 

819 039C E6 06 out 6, al ; DRQ3 base address 

820 ¥ (also sets current address) 
821 039E 86 EO xchg ah, al 

822 O3A0 E6 06 out 6, al ; DRQ3 base address 

823 ; (also sets current address) 
824 03A2 86 C5 xchg al, ch 

825 03A4 8A CC mov cl, ah 

826 03A6 24 OF and al, OFh 

827 O3A8 E6 82 out 82h, al ; DRQ1 address bits 16-23 latch 
828 O3AA 8B C7 mov ax, di 

829 O3AC 32 F6 xor dh, dh 

830 O3AE F7 E2 mul dx 

831 03B0 2D 0001 sub ax, 1 

832 03B3 80 DA 00 sbb dl, 0 

833 03B6 E6 07 out 7, al ; DRQ3 base address and word count 
834 O03B8 86 C4 xchg al, ah 

835 O3BA E6 07 out 7, al ; DRQ3 base address and word count 
836 O03BC FB sti 

837 

838 O3BD 75 13 jnz short BAD_DMA ; Check DMA address validity 
839 O3BF 86 EO xchg ah, al 

840 03c1 03 Cl add ax, cx 

841 03C3 72 OD jb short BAD_DMA 

842 

843 03Cc5 BO 03 mov al, 11b ; Enable IRQ and DMA 
844 03C7 E8 0479 R call WRITE_COMMAND_BLOCK 

845 O03CA 72 08 je short JUST_RETURN_2 

846 

847 03ccC BO 03 mov al, 11b ; Mask DRQ 3 

848 O03CE E6 OA out OAh, al 

849 

850 03D0 EB OA jmp short HANDLE_COMMON ; Jump 

851 

852 03D2 BAD_DMA: 

853 03D2 B4 09 mov ah, INT_13H_ERR_ATTEMPT_DMA_OVER_64K 

854 ; FALL THROUGH TO JUST_RETURN_2 

855 03D4 COMMON_DMA ENDP 

856 

857 03D4 JUST_RETURN_2: 

858 03D4 C3 ret 

859 

860 03D5 HANDLE_NO_DMA PROC NEAR 

861 03D5 BO 02 mov al, 2 

862 03D7 E8 0479 R call WRITE_COMMAND_BLOCK 

863 O3DA 72 F8 jb short JUST_RETURN_2 

864 ; FALL THROUGH TO HANDLE_COMMON 

865 03DC HANDLE_NO_DMA ENDP 

866 


867 
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868 PAGE 

869 O03DC HANDLE_COMMON PROC NEAR 

870 O3DC FA eli 

871 O3DD E4 21 in al, 21h 

872 O3DF 24 DF and al, ODFh ; Unmask IRQ5 

873 03E1 E6 21 out 21h, al 

874 03E3 FB sti 

875 

876 03E4 E8 0500 R call PORT_321_TO_Dx 

877 03E7 WAIT_FOR_IRQ: 

878 03E7 EC in al, dx ; Read Status 

879 03E8 A8 20 test al, 100000b 7; IRQ 

880 O3EA 75 07 jnz short GOT_IRQ 

881 O03EC A8 08 test al, 1000b ; BUSY 

882 O3EE 75 F7 jnz short WAIT_FOR_IRQ 

883 

884 03F0 RETURN_BAD_STATUS: 

885 O3FO E9 048A R jmp RETURN_80 

886 

887 03F3 GOT_IRQ: 

888 O03F3 E8 0505 R call PORT_323_TO_DX ; Write DMA/IRQ mask 

889 O3F6 BO FC mov al, OFCh ; Disable IRQ and DMA 
890 O03F8 EE out dx, al 

891 

892 O3F9 E8 04AB R call CHECK_STATUS 

893 O3FC 72 F2 je short RETURN_BAD_STATUS 

894 O3FE 74 D4 jz short JUST_RETURN_2 

895 

896 0400 C6 06 0042 R 03 mov SCRATCH+0, OP_READ_SENSE 

897 0405 BO FC mov al, OFCh ; Disable IRQ and DMA 
898 0407 E8 0479 R call WRITE_COMMAND_BLOCK 

899 O40A 72 6A je short RETURN_FF_ERROR ; Jump if Below (CF=1) 
900 

901 040C BF 0042 R mov di, offset SCRATCH ; Read sense bytes (4) 
902 O40F 8C D8 mov ax, ds 4 into scratch block 
903 0411 8E CO mov es, ax 

904 assume es:BDA 

905 0413 B9 0004 mov cx, 4 ; Four bytes of sense 
906 0416 FC cld 

907 0417 READ_SENSE_BYTE: 

908 0417 E8 04C8 R call WAIT_FOR_REQ 

909 041A 72 5A je short RETURN_FF_ERROR 

910 041C EC in al, dx 

911 041D AA stosb 

912 O41E E2 F7 loop READ_SENSE_BYTE 

913 

914 0420 E8 04AB R call CHECK_STATUS ; See if we could read sense 
915 0423 72 51 je short RETURN_FF_ERROR ; Not at all! 

916 0425 75 4F jnz short RETURN_FF_ERROR 

917 

918 0427 8A 2E 0042 R mov ch, SCRATCH+0 ; Sense error code 

919 042B 8A DD mov bl, ch ; SENSE_TO_ERR is a sparse 
920 042D 81 E3 0030 and bx, 30h Hi error mapping table. 
921 0431 B1 03 mov e1,.:3 ;Z First bits 4-5 are used 
922 0433 D2 EB shr bl, el 4 as an index where range 
923 0435 8A E5 mov ah, ch ; and limits are found. 
924 0437 80 E4 OF and ah, OFh ¥ Then bits 0-3 are used 
925 043A 2E: 3A A7 OSOA R cmp ah, cs:SENSE_TO_ERR[bx] j; to index the actual 
926 043F 73 32 jnb short RETURN_BB 4 value (that is the 
927 0441 43 inc bx : INT 13h error code). 
928 0442 2E: 8A 9F O50OA R mov bl, cs:SENSE_TO_ERR[bx] ; Bounds are checked along 
929 0447 02 DC add bl, ah ; the way 

930 0449 2E: 8A A7 O5OA R mov ah, cs:SENSE_TO_ERR[bx] 

931 

932 O044E 80 FD 18 cmp ch, 18h ; Error Code 18H is a special 
933 ; case, handled below: 
934 z Correctable Data Error 
935 0451 75 22 jne short JUST_RETURN_1 ; We’re done unless it’s 18H 
936 

937 0453 8A FC mov bh, ah 

938 0455 C6 06 0042 R OD mov SCRATCH+0, OP_READ_ECC_BURST_ERROR_LEN 

939 045A BO FC mov al, OFCh ; Disable IRQ and DMA 
940 045C E8 0479 R call WRITE_COMMAND_BLOCK 

941 O45F 72 15 je short RETURN_FF_ERROR 

942 0461 E8 04C8 R call WAIT_FOR_REQ 

943 0464 72 10 je short RETURN_FF_ERROR 

944 

945 0466 EC in al, dx ; Read Status??? 

946 0467 8A D8 mov bl, al 

947 

948 0469 E8 04AB R call CHECK_STATUS 

949 046C 72 08 je short RETURN_FF_ERROR 

950 O46E 75 06 jnz short RETURN_FF_ERROR 

951 

952 0470 8B C3 mov ax, bx 

953 0472 C3 ret 

954 0473 RETURN_BB: 

955 0473 B4 BB mov ah, INT_13H_ERR_UNDEFINED 

956 0475 JUST_RETURN_1: 

957 0475 C3 ret 

958 0476 RETURN_FF_ERROR: 

959 0476 B4 FF mov ah, INT_13H_ERR_SENSE_FAILED 

960 0478 C3 ret 

961 0479 HANDLE_COMMON ENDP 


962 
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963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 


0479 
0479 
047c 


047D 
047E 


047F 
0480 
0483 
0483 
0484 
0486 
0488 


048A 
048A 
048C 
048D 
048D 


048E 
048E 
0491 
0494 


0495 
0495 
0498 
049A 
049C 
049E 
04A0 
04A2 
04A3 
O4A5 
O4A6 


O4A8 
04AB 


04AB 
04AB 
O4AE 
04B0 
04B2 
04B4 
04B6 
04B8 
04B9 


04BB 
04BC 
04BC 
O04BD 
O4BF 


04c1 
04c3 
04c5 
04c6 
04C6 
04c7 
04c7 
04c8 


04c8 
04c8 
04CB 
04CB 
04cc 
04CE 
04D0 
04D2 
04D4 


04D5 


04D7 
04D7 
04D8 
04D9 


E8& 
EE 


4a 
EE 


4A 
BO 


EC 
A8 
75 
E2 


B4 
F9 


c3 


BF 
BO 
FC 


E8& 
72 
24 
34 
75 
87 
AC 
87 
EE 
E2 


E9 


E8& 
B4 
72 
24 
3c 
75 
EC 
8A 


42 


EC 
24 
15 


86 
A8 
c3 


F9 


c3 


E8& 


EC 
A8 
75 
A8 
75 
F9 


B4 


4A 
c3 


0505 R 


012c 


08 
06 
FQ 


80 


0042 R 
0006 


04c8 R 
F3 
OE 
oc 


FE 


FE 


ED 


0359 R 


04c8 R 
00 
15 
OE 
OE 
OE 


EO 


08 
FB 


c4 
02 


0500 R 


o1 
07 
08 
F7 


80 
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A AL = IRQ/DRQ mask register (323H) 


WRITE_COMMAND_BLOCK PROC 


call 
out 


dec 
out 


dec 
mov 


PORT_323_TO_DX 


WAIT_UNTIL_BUSY: 


in 
test 
jnz 

loop 


RETURN_80: 
mov 
stc 
JUST_RETURN_4: 
ret 


BUSY: 
mov 
mov 
cld 


dx, al 

dx 

dx, al 

dx 

cx, 300 
al, dx 
al, 1000b 


short BUSY 
WAIT_UNTIL_BUSY 


ah, INT_13H_ERR_DRIVE_TIMED_OUT 


di, offset SCRATCH+0 
cx, 6 


WRITE_COMMAND_BYTE: 


call 
je 
and 
xor 
jne 
xchg 
lodsb 
xchg 
out 
loop 


jmp 


WRITE_COMMAND_BLOCK 


; This waits for command to finish, 


WAIT_FOR_REQ 
short JUST_RETURN_4 


al, 1110b 

al, 1100b 

short RETURN_80 
di, si 

di, si 

dx, al 


WRITE_COMMAND_BYTE 


RETURN_ZERO 
ENDP 


; Completion Byte and checks the error bit. 


; Result: 
ir CF = 0 No error 
; CF 1 Error 


CHECK_STATUS PROC NEAR 
call WAIT_FOR_REQ 
mov ah, 0 
je short JUST_RETURN_5 
and al, 1110b 
cmp al, 1110b 
jnz short NOT_GOOD 
in al, dx 
mov ah, al 
inc dx 
WAIT_FOR_NOT_BUSY: 
in al, dx 
and al, 1000b 
jnz short WAIT_FOR_NOT_BUSY 
xchg al, ah 
test al, 10b 
ret 
NOT_GOOD: 
stc 
JUST_RETURN_5: 
ret 
CHECK_STATUS ENDP 


; Wait for the 
j; transmission 


; Return: 
1 DX = 320H 


controller to be ready for data 
in either way. 


% AL = Status (from port 321H) 
; Error 80H (timeout) on failure 


WAIT_FOR_REQ 
call 


PROC NEAR 
PORT_321_TO_Dx 


WAIT_FOR_REQ WHILE_BUSY: 


in 
test 
jnz 
test 
jnz 
stc 


mov 


GOT_REQ: 
dec 
ret 

WAIT_FOR_REQ 


a1,. Ge 

yt eee 3 

short GOT_REQ 
al, 1000b 


short WAIT_FOR_REQ_WHILE_BUSY 


ah, INT_13H_ERR_DRIVE_TIMED_OUT 


ENDP 


; Write DMA/IRQ mask 


7; Port now 0x322 
; Enable BUSY and prepare for command 


7; Port now 0x321 
; 300 Tries 


; Read Status 
; Busy 


; Read Status 


; Command block: OP CODE 
; Command Control Block has 6 bytes 


reads the Command 


; Error waiting for REQ 

; Busy | c/D | I/o 

; Jump if Not Zero (ZF=0) 
; Input data 


7 Port now 0x321 


; Read Status 
; BUSY bit 


; ERROR bit 


; Read Status 
; REQ (Data available for reading) 


; BUSY 


; Error: No longer BUSY, 
rs but we have not seen REQ 


; Port is now 0x320 DATA 
; Return Near from Procedure 
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1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 


04D9 
04D9 
04DB 


04DD 


04E2 
04E5 


O4E6 
04EB 
O4ED 
O4EF 
O4F1 


O4F1 
04F4 
O4F6 
O4F8 
O4FA 
O04FB 


04FB 
04FB 
O4FF 
0500 


0500 
0500 
0504 
0505 


0505 
0505 
0509 
050A 


O50A 
050B 
050Cc 
050D 
050E 
O50F 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
051A 
051B 
051c 
051D 
051E 
O51F 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
052A 


33 
8E 


26: 


E8& 
EC 


F6 
75 
DO 
DO 


25 
Bl 
D3 
03 
c3 


8D 
c3 


8D 
c3 


8D 
c3 


09 
08 
OA 
11 
02 
1B 
03 
1D 
00 
20 
40 
20 
80 
00 
20 
00 
40 
10 
10 
02 
00 
04 
40 
00 
00 
11 
0B 
o1 
02 
20 
20 
10 


co 

co 

c4 1E 0104 R 
O4FB R 

06 0043 R 20 


04 
E8& 
E8& 


0003 
04 
EO 
Ds 


94 0322 


94 0321 


94 0323 
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; This picks the drive parameter table depending on 


; the drive selecte 


; Returns 
- ES = 
; BX 


00H 





do and the jumper settings. 


Drive parameters table (INT 41H) 


Read Jumpers 


Is second drive selected? 

Jump if we’re using the second drive 

Discard two least significant bits: 
that would be the second drive. 


GET_DRIVE_PARMS PROC NEAR 
xor ax, ax 
mov es, ax 
assume es: ZERO 
les bx, dword ptr es: INT_41H_OFF 
call PORT_322_TO_DX 
in al, dx i 
test SCRATCH+1, 20h ; 
jnz short PICKED_A_DRIVE ¥ 
shr al, 1 ; 
shr al, 1 ; 
PICKED_A_DRIVE: 
and en; 3 
mov cl, 4 
shl ax, cl 
add bx, ax 
ret 
GET_DRIVE_PARMS ENDP 
; Write: Select BUSY 
; Read: Jumpers 
PORT_322_TO_DX PROC NEAR 
lea dx, [si+322h] 
ret 
PORT_322_TO_ DX ENDP 
; Write: Reset 
; Read: Status 
PORT_321_TO_DX PROC NEAR 
lea dx, [si+321h] 
ret 
PORT_321_TO_DX ENDP 
; Write: Set DMA/IRQ mask 
PORT_323_TO DX PROC NEAR 
lea dx, [si+323h] 
ret 


PORT_323_TO_DX ENDP 


SENSE_TO_ERR 


SENSE_0X 


SENSE_1X 


SENSE_2X 


SENSE_3X 


BGGGGGEGCEEGEE CECE CEG EEE GEG EE GE EE 


SENSE_END 


SENSE_1X-SENSE_0X 
SENSE_0X-SENSE_TO_ERR 
SENSE_2X-SENSE_1X 
SENSE_1X-SENSE_TO_ERR 
SENSE_3X-SENSE_2X 
SENSE_2X-SENSE_TO_ERR 
SENSE_END-SENSE_3X 
SENSE_3X-SENSE_TO_ERR 
() 


INT_13H_ERR_CONTROLLER_FAILURE 


INT_13H_ERR_SEEK_FAILURE 


INT_13H_ERR_CONTROLLER_FAILURE 


INT_13H_ERR_DRIVE_TIMED_OUT 
() 


INT_13H_ERR_CONTROLLER_FAILURE 


() 

INT_13H_ERR_SEEK_FAILURE 
INT_13H_ERR_CRC_ECC_DATA 
INT_13H_ERR_CRC_ECC_DATA 


INT_13H_ERR_CANNOT_FIND_ADDR_MARK ; 


() 
INT_13H_ERR_SECTOR_NOT_FOUND 
INT_13H_ERR_SEEK_FAILURE 

() 

() 


INT_13H_ERR_ECC_CORRECTED_DATA 
INT_13H_ERR_BAD_CYLINDER_OR_TRACK 


INT_13H_ERR_INVALID_COMMAND 


INT_13H_ERR_CANNOT_FIND_ADDR_MARK 
INT_13H_ERR_CONTROLLER_FAILURE 
INT_13H_ERR_CONTROLLER_FAILURE 


INT_13H_ERR_CRC_ECC_DATA 
EL NEAR 


; OOH 
; 01H 
7; O2H 
; 03H 
; 04H 
; O5H 
; O6H 
; O78 
; O8H 
; 10H 
; 118 
12H 
13m 
; 14H 
; 15H 
; 16H 
3) 13 
; 18H 
7; 19H 
; 20H 
; 218 
; 30H 
; 318 
}. 328 


No Error Detected 


No SC 
Write 
Drive 


Signal 
Fault Signal 
Not Ready 


Track 0 Not Found 


Drive Still Seeking 
Uncorrectable Data Error 
No Data Address Mark 


Seek Error 


Correctable Data error 
Track Is Flagged Bad 
Invalid Command 

Illegal Sector Address 
Sector Buffer Error 
BIOS ROM checksum error 
ECC Polynomial Error 
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1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 


052A 


0530 
0530 
0531 
0533 


0535 
0538 
053A 


053c 
053D 
053F 
0541 


0543 
0543 
0546 
0547 
054A 
054c 
O54E 


0550 
0553 
0555 


0557 
0558 
0559 
o55c 
055E 


0560 
0562 
0564 
0566 


0568 
0569 
056C 
056E 


0570 
0570 
0571 
0573 
0576 
0578 


0579 
057B 
057D 
O57F 


0581 
0582 
0583 
0585 
0588 
O58A 
058c 
058E 


0590 
0593 
0595 
0597 
0599 


059B 
059B 
o59c 
O59F 
O5A1 
O5A3 
O5A5 
O5A8 


O5AA 
O5AA 


O5AD 
O5AD 
OSAF 


O5B1 
O5B1 
05B3 
O5B5 
05B7 


50 
8c 
8E 


BA 
B4 
cD 


58 
OA 
75 
BO 


80 
50 
80 
8A 
B4 
cD 


BA 
B4 
cD 


58 
50 
E8& 
B4 
cD 


3c 
74 
3c 
74 


58 
BA 
2A 
EB 


58 
8A 
80 
8A 
50 


B4 
cD 
8A 
72 


58 
50 
2A 
BO 
B4 
cD 
8A 
72 


BO 
B4 
cD 
8A 
73 


58 
BA 
B4 
cD 
8A 
E8& 
EB 


BA 


B4 
cD 


8A 
B4 
cD 


06 [ 


cs 
Ds 


05D2 R 
09 
21 


co 
02 
03 


E4 07 


c4 43 
D4 
02 
21 


068F R 
09 
21 


05B7 R 
o1 
21 


79 
oc 
59 
08 


06D0 R 
FF 
3D 


D4 


E2 


12 
13 
FC 
1A 


F6 
0001 
07 
13 
FC 
oB 


0001 
11 
13 
FC 
OF 


O6B5 R 
09 
21 
c7 
05B7 R 
07 


06A1 R 


09 
21 


c7 
4c 
21 


00 


PAGE 

; ALIGN 16 

PAD DB 6 DUP (0) 
i Formatter routine 


; Intended to be run from PC DOS debug with: -G=C800:5 


DO_FORMAT PROC NEAR 
push ax 
mov ax, cs 
mov ds, ax 


assume ds:ROM 


mov dx, offset STR_FORMAT_PROMPT 

mov ah, 09H ; Print $-terminated string 
int 21h 

pop ax 

or al, al 

jnz short SECOND_DRIVE 

mov al, 3 


SECOND_DRIVE: 


and ah, 7 

push ax 

add Fi > alia pe 

mov dl, ah 

mov ah, 02H ; Print a character 
int 21h 

mov dx, offset STR_WITH_INTERLEAVE 

mov ah, 09H ; Print $-terminated string 
int 21h 

pop ax 

push ax 

call PRINT_NUMBER 

mov ah, 01H ; Get character 
int 21h 

cmp al, ‘y’ 

je short FORMAT_YES_ANSWERED 

cmp el, 2" 

je short FORMAT_YES_ANSWERED 

pop ax 

mov dx, offset STR_NOTHING_DONE 

sub bh, bh 

jmp short PRINT_MESSAGE_AND_EXIT 


FORMAT_YES_ANSWERED : 


pop ax 
mov dl, ah 

or dl, 80h 

mov ah, dl 

push ax 

mov ah, 12h ; Sector buffer diagnostics 
int INT_13H 

mov bh, ah 

je short PRINT_ERROR_CODE_AND_EXIT 

pop ax 

push ax 

sub dh, dh 

mov ox, 2 

mov ah, O7H ; Format drive from track 1 
aint INT_13H 

mov bh, ah 

je short PRINT_ERROR_CODE_AND_EXIT 

mov gar: 2. ; Recalibrate 

mov ah, 11h 

int INT_13H 

mov bh, ah 

jnc short PRINT_SUCCESS_MESSAGE_AND_EXIT 


PRINT_ERROR_CODE_AND_EXIT: 


pop ax 
mov dx, offset STR_ERROR_COMPLETION 

mov ah, 09H ; Print $-terminated string 
int 21h 

mov al, bh 

call PRINT_NUMBER 

jmp short DO_EXIT 


PRINT_SUCCESS_MESSAGE_AND_EXIT: 
mov dx, offset STR_FORMAT_SUCCESS 


PRINT_MESSAGE_AND_EXIT: 


mov ah, O9H ; Print $-terminated string 
int 21h 
DO_EXIT: 
mov al, bh ; Return value 
mov ah, 4Ch ; Terminate 
int 21h 
DO_FORMAT ENDP 
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1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 


05B7 


O5B7 
O5B8 
O5BA 
O5BC 
O5BF 
05c0 
05c2 
05c3 


05c3 


05c3 
o5c5 
05C7 
o5c8 
O5CA 
05CB 
o5cD 
O5cCF 
o5D1 
05D2 


O5D2 
O5D2 


OS5EA 


0614 


063D 


O66A 


O68F 
068F 


O6A1 
O6A1 


O6B5 
O6B5 


O6D0 
O6DO 


O6E4 


O6EC 


50 
Bl 
D2 
E8& 
58 
EB 
90 


24 
04 
27 
14 
27 
8A 
B4 
cD 
c3 


57 
72 
65 
6E 
28 
70 
74 
65 
67 
43 
31 
20 
29 
6c 
20 
20 
72 
20 
20 
29 
74 
76 
74 
20 
61 
29 
50 
22 
20 
20 
74 
64 
24 


20 
69 
65 


oD 
61 
63 
6c 


oD 
72 
6D 
6F 
65 


oD 
69 
6E 
74 


38 
32 


04 
E8& 


05c3 R 


o1 


OF 
90 


40 


DO 
02 
21 


58 
6D 
76 
20 
43 
79 
20 
72 
69 
6F 
39 
20 
20 
61 
64 
6E 
20 
37 
20 
20 
65 
65 
6F 
69 
6E 
oD 
72 
79 
62 
66 
74 
72 


77 
6E 
61 


OA 
74 
65 
24 


OA 
2D 
70 
6E 
20 


OA 
6E 
65 
24 


35 
39 


32 
61 
69 
36 
29 
72 
57 
6E 
74 
72 
38 
20 
3D 
74 
72 
75 
28 
29 
20 
3D 
72 
20 
72 
73 
64 
OA 
65 
22 
65 
6F 
69 
69 


69 
74 
76 


46 
20 
73 


45 
2D 
6c 
20 
24 


4E 
67 
20 


2F 


20 
74 
73 
2E 
20 
69 
65 
20 
61 
70 
35 
28 
20 
69 
69 
6D 
30 
oD 
28 
20 
6c 
66 
20 
20 
61 


73 
20 
67 
72 
6E 
76 


74 
65 
65 


6F 
53 
73 


72 
2D 
65 
63 


6F 
20 
45 


30 


46 
20 
69 
30 
43 
67 
73 
44 
6c 
2E 
oD 
41 
52 
76 
76 
62 
20 
OA 
41 
49 
65 
61 
28 
73 
72 


73 
74 
69 
6D 
67 
65 


68 
72 
20 


72 
75 
66 


72 
63 
74 
6F 


74 
44 
78 


31 


6F 
52 
6F 
20 
6F 
68 
74 
69 
20 
20 
OA 
48 
65 
65 
65 
65 
2D 


4c 
6E 
61 
63 
33 
74 
64 


20 
6F 
6E 
61 
20 
20 


20 
6c 
24 


6D 
63 
75 


6F 
6F 
69 
64 


68 
6F 
69 


2F 


PAGE 
PRINT_NUMBER PROC NEAR 


push ax 

mov el, 4 

shr e1,.- GL 

call PRINT_DIGIT 

pop ax 

jmp short PRINT_DIGIT 
nop 


PRINT_NUMBER ENDP 


PRINT_DIGIT PROC NEAR 
and al, OFh 
add al, 90h 
daa 
adc al, 40h 
daa 
mov dl, al 
mov ah, 02H ; Print a character 
int 21h 
ret 
PRINT_DIGIT ENDP 


STR_FORMAT_PROMPT: 


db "WX2 Format Revision 6.0 " 
db "(C) Copyright Western Digital Corp. 1985",0Dh, 0Ah 
db us (AH) = Relative drive number (0 - 7)",0Dh,0Ah 


8 
g 


Interleave factor (3 is standard)", 0Dh, 0Ah 


db ‘Press "y" to begin formatting drive $’ 


STR_WITH_INTERLEAVE: 
db "with interleave $" 


STR_FORMAT_SUCCESS: 
db ODh, OAh, "Format Successful$" 


STR_ERROR_COMPLETION: 
db ODh, OAh, "Error---completion code $" 


STR_NOTHING_DONE: 


db ODh, OAh, "Nothing Done Exit$" 

db "85/01/29" ; Date code 
ROM ends 

END 








This has been disassembled and commented manually on 
Sun 06 Jun 2021 in hope it will be useful to 
somebody. When assembled, it matches the 
62-000042-012 ROM byte-for-byte. 


Please note that it is not free software and is 


subject to copyright. 


------------------------------------------ SMOKE WEED -- 


